home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / tweenTests / cylinderAsText.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  3.7 KB  |  55 lines
  1. #
  2. # This eve 3D text scene file generated by Michael B. Johnson's WW3DKit software running under NeXTSTEP.
  3. # Contact him at wave@media.mit.edu or (617) 666-4119 for more information.
  4. #
  5. # Writing out all the current values of the global variables:
  6. set cylinder(zMax) {1.0};
  7. set cylinder(thetaMax) {360.0};
  8. set cylinder(radius) {1.0};
  9. set cylinder(zMin) {-1.0};
  10. set cylinder(color) {1.0 0.0 0.0};
  11. set cylinder(xRotate) {0.000000};
  12. # end of globals
  13. # Writing out all the current definitions of all the non built-in procs:
  14. # end of procs
  15. set __text__(fontName) Helvetica
  16. set __text__(fontSize) 10.000000
  17. set __text__(spacing) 2.000000
  18. set __text__(spacingFactor) -0.013889
  19. set __text__(tabLength) 0.277778
  20. set __text__(timeFactor) 0.013889
  21. set __text__(sampleOffset) 0.138889
  22. startShape TextWorld
  23.     set __text__(colorWW3DShape) {1 1 1}
  24. startShape WW3DShape; EveCmd {Color $__text__(colorWW3DShape)}; EveCmd {Translate [expr { 1 * $__text__(tabLength)}] [expr {$__text__(spacingFactor) * 0 * $__text__(spacing) * $__text__(fontSize)}] 0 };
  25.       EveCmd {WW3DText $__text__(fontName) $__text__(fontSize) {startShape aCylinder  } left;
  26. }
  27.         set __text__(colorRIBColor) {1 1 1}
  28. startShape RIBColor; EveCmd {Color $__text__(colorRIBColor)}; EveCmd {Translate [expr { 2 * $__text__(tabLength)}] [expr {$__text__(spacingFactor) * 1 * $__text__(spacing) * $__text__(fontSize)}] 0 };
  29.           EveCmd {WW3DText $__text__(fontName) $__text__(fontSize) {        Color {1.000000 0.000000 0.000000};} left;}
  30. endShape;
  31.  
  32.         startShape (WWSampleComponentList); EveCmd {Translate [expr { 2 * $__text__(tabLength)}] [expr {$__text__(spacingFactor) * 2 * $__text__(spacing) * $__text__(fontSize)}] 0 };
  33.   EveCmd {WW3DText $__text__(fontName) $__text__(fontSize) {EveCmd {Rotate $cylinder(xRotate) 1 0 0 }} left;}
  34.     startShape WWSample; set __text__(colorTime0.000000) {1 1 1};set __text__(colorSurface0.000000) plastic;EveCmd {Color $__text__(colorTime0.000000) }; EveCmd {Surface $__text__(colorSurface0.000000)}; EveCmd {Translate [expr { 0 * $__text__(tabLength)}] [expr {$__text__(spacingFactor) * 0 * $__text__(spacing) * $__text__(fontSize)}] [expr {$__text__(sampleOffset) + ($__text__(timeFactor) * 0.000000)}]};
  35.   EveCmd {WW3DText $__text__(fontName) $__text__(fontSize) {{{} 1.000000 {Rotate 0.000000 1.000000 0.000000 0.000000;}} {{waveToFriend} 1.000000 {Rotate 0.000000 1.000000 0.000000 0.000000;}} {{scratchHead} 1.000000 {Rotate 30.000000 1.000000 0.000000 0.000000;}} } left;}
  36. endShape;
  37.  
  38.     startShape WWSample; set __text__(colorTime1.000000) {1 1 1};set __text__(colorSurface1.000000) plastic;EveCmd {Color $__text__(colorTime1.000000) }; EveCmd {Surface $__text__(colorSurface1.000000)}; EveCmd {Translate [expr { 0 * $__text__(tabLength)}] [expr {$__text__(spacingFactor) * 0 * $__text__(spacing) * $__text__(fontSize)}] [expr {$__text__(sampleOffset) + ($__text__(timeFactor) * 1.000000)}]};
  39.   EveCmd {WW3DText $__text__(fontName) $__text__(fontSize) {{{waveToFriend} 1.000000 {Rotate 90.000000 1.000000 0.000000 0.000000;}} {{scratchHead} 1.000000 {Rotate 60.000000 1.000000 0.000000 0.000000;}} } left;}
  40. endShape;
  41.  
  42. endShape;
  43.  
  44.         set __text__(colorRIBCylinder) {1 1 1}
  45. startShape RIBCylinder; EveCmd {Color $__text__(colorRIBCylinder)}; EveCmd {Translate [expr { 2 * $__text__(tabLength)}] [expr {$__text__(spacingFactor) * 3 * $__text__(spacing) * $__text__(fontSize)}] 0 };
  46.           EveCmd {WW3DText $__text__(fontName) $__text__(fontSize) {        Cylinder 1.000000 -1.000000 1.000000 360.000000 ;} left;}
  47. endShape;
  48.  
  49.  
  50.     startShape endShape; EveCmd {Translate [expr { 1 * $__text__(tabLength)}] [expr {$__text__(spacingFactor) * 5 * $__text__(spacing) * $__text__(fontSize)}] 0 };
  51.   EveCmd {WW3DText $__text__(fontName) $__text__(fontSize) {endShape} left;}
  52.     endShape;
  53.     endShape;
  54. endShape
  55.